1 POKE53281,3:POKE53280,6:PRINT"[147]              REMEMBER IT                 ";
2 PRINT"          BY  DJB SHIBLEY             "
3 Q$(0)="HMMMM":Q$(1)="THINKING":Q$(2)="WELL !":Q$(3)="TRYING TO REMEMBER"
4 Q$(4)="CHECKING MEMORY":Q$(5)="DECIDING":Q$(6)="CHECKING PRIOR MOVES"
5 DIMD$(44),U(44),M(44),R(35),R$(35)
6 D$(2)="***[157][157][157]***[157][157][157]***"
7 Q$(7)="HUH !":Q$(8)="MY MOVE":Q$(9)="LET'S SEE":Q$(10)="THINKING OUT MY MOVE"
10 D$(6)="[129][205] [206][157][157][157] [214] [157][157][157][206] [205]":D$(9)="###[157][157][157] [150][219] [157][157][157]###"
11 D$(0)="   [157][157][157] [144][193] [157][157][157]   ":D$(1)="[152][209][209][209][157][157][157][209][209][209][157][157][157][209][209][209]"
12 D$(4)="[144][191][191][191][157][157][157][191][191][191][157][157][157][191][191][191]":D$(5)="[144][213][195][201][157][157][157][202][178][203][157][157][157] [150][215] "
13 D$(7)="[218][218][218][157][157][157] [218] [157][157][157][218][218][218]":D$(8)="[144][176][192][174][157][157][157][214][214][214][157][157][157][173][192][189]"
14 D$(3)=" [175] [157][157][157] [221] [157][157][157] [203] ":D$(10)="[154]   [157][157][157] [146][219] [157][157][157]   "
15 D$(11)="[158][166][166][166][157][157][157][166][166][166][157][157][157][166][166][166]":D$(12)="[154][169][169][169][157][157][157][192][192][192][154][157][157][157][169][169][169]"
16 D$(13)="[156][221][221][221][157][157][157][221][221][221][157][157][157][221][221][221]":D$(14)="[153][184][184][184][157][157][157][182] [146][181][157][157][157][185][185][185]"
17 D$(15)="[206][206][206][157][157][157]   [157][157][157][205][205][205]":D$(16)="[156][171][192][179][157][157][157][171][192][179][157][157][157][171][192][179]"
18 D$(17)="[159] [185] [157][157][157]  [146] [157][157][157] [184] "
19 D$(18)="[144] [178] [157][157][157] [194] [157][157][157] [177] ":D$(19)="[215][215][215][157][157][157][215][215][215][157][157][157][215][215][215]"
20 D$(20)="[158][192][192][192][157][157][157][146][192][192][192][157][157][157][192][192][192]":D$(21)="[207] [208][157][157][157] ! [157][157][157][204] [186]"
21 FORJ=22TO43:D$(J)=D$(J-22):NEXT:D$(44)="   [157][157][157] 1 [157][157][157]PT."
25 PRINT"     PRESS 1 OR 2 FOR # OF PLAYERS[145]":GETX$:N=VAL(X$):IFN<1ORN>2THEN25
26 IFN=2THEN34
27 PRINT"[147]DO YOU WANT ME TO PLAY LIKE":PRINT" 1 - A SOLO ELECRTON"
28 PRINT" 2 - A VACUUME TUBE CALCULATOR":PRINT" 3 - A GUTLESS ADDING MACHINE"
29 PRINT" 4 - A NON POLISHED APPLE":PRINT" 5 - A CRIPPLE MICRO-COMPUTER"
30 PRINT" 6 - A MICRO-COMPUTER":PRINT" 7 - A COMMODORE MICRO-COMPUTER"
31 PRINT" 8 - A MINI-COMPUTER":PRINT" 9 - A FULL BLOWN MAINFRAME"
32 POKE198,0:WAIT198,1:GETX$:S=VAL(X$):IFS=0THEN32
33 S=S*2:IFS>13THENS=INT(S*1.7):IFS>30THENS=35
34 POKE53281,15:PRINT"[147]":GOSUB500:FORJ=0TO44
35 PRINT"[144]PLEASE WAIT...SETTING UP!!"
40 X=RND(0)*45:IFU(X)=1THEN40
45 U(X)=1:M(J)=INT(X):NEXT:PRINT"                                     "
49 FORH=1TON:FORI=1TO2:O(I)=0
50 PRINT"[144]PLAYER";H;"- DOOR #        [157][157][157][157][157]";:Y$="":Y=0:X$=""
51 INPUTY$:X$=Y$:X=VAL(Y$):GOTO55:REM    GETY$:IFY$=""THEN51
52 PRINTY$;:IFY$=CHR$(20)ORY$="[157]"THEN50
53 Y=Y+1:IFY>1THENX=VAL(X$+Y$):GOTO55
54 X$=Y$:Y$="":GOTO51
55 IFX<1ORX>45THEN50
56 X=X-1:IFU(X)=0OR(I=2ANDX=O(1))THEN50
57 O(I)=X:X$=D$(M(X)):GOSUB950
60 IFM(O(I))=44THENT(H)=T(H)+1:X=O(I):U(X)=0:GOSUB965:I=I-1
71 NEXT:IFD$(M(O(1)))=D$(M(O(2)))THENT(H)=T(H)+2:U(O(1))=0:U(O(2))=0:GOTO90
72 PRINT"                                     "
75 FORJ=0TO4000:NEXT:FORI=1TO2:X$="   [157][157][157]   [157][157][157]   [157][157][157][145]"+STR$(O(I)+1):X=O(I)
76 GOSUB950:NEXT:GOTO100
90 PRINT"";SPC(13);T(1);"[145]":PRINTSPC(34);T(2);:H=H-1
91 IFT(1)+T(2)=45THENH=N
100 NEXT:IFT(1)+T(2)=45THEN200
105 IFN=2THEN49
106 IFS>15THENPRINT"[144] ";Q$(RND(0)*11)
107 Z=0:Y=0:FORJ=1TOS:FORK=JTOS:IFR$(J)=R$(K)THENIFR(J)<>R(K)THENZ=J:Y=K
109 NEXT:NEXT:PRINT"                                 ":IFZ=0ORU(R(Z))=0THEN118
110 X=R(Z):X$=R$(Z):IFLEN(X$)<2THEN118
111 R$(Z)="":U(X)=0:GOSUB950:X=R(Y):U(X)=0:T(2)=T(2)+2:GOSUB950:R$(Y)=" "
112 PRINT"":GOTO107
118 A=O(1):B=O(2):A$=D$(M(A)):B$=D$(M(B))
120 X=0:Y=0:FORJ=1TOS:IFR$(J)=A$ANDR(J)<>ATHENX=R(J):X$=R$(J)
125 IFR$(J)=B$ANDR(J)<>BTHENY=R(J):Y$=R$(J)
130 NEXT:IFX>0THENU(X)=0:GOSUB950:X=A:U(X)=0:T(2)=T(2)+2:GOSUB950:X=-1
131 IFT(1)+T(2)=45THEN200
132 IFX=-1THENFORJ=0TO1500:NEXT:GOTO140
133 C=C+1:IFC>STHENC=1
134 R$(C)=A$:R(C)=A
140 IFY>0THENU(Y)=0:X=Y:X$=Y$:GOSUB950:X=B:U(X)=0:T(2)=T(2)+2:GOSUB950:X=-1
141 IFT(1)+T(2)=45THEN200
142 IFX=-1THENFORJ=0TO1500:NEXT:GOTO150
143 C=C+1:IFC>STHENC=1
150 Z=INT(RND(0)*44+1):Z$=D$(M(Z)):X$=Z$:IFT(1)+T(2)=45THEN200
151 IFU(Z)=0THEN150
152 IFM(Z)=44THENU(Z)=0:T(2)=T(2)+1:X=Z:GOSUB950:FORJ=0TO1000:NEXT:GOTO150
155 X=Z:X$=Z$:GOSUB950:Y=0:FORJ=1TOS:IFX$=R$(J)ANDR(J)<>ZTHENY=J
156 NEXT:IFY=0THEN160
158 U(Z)=0:X=R(Y):U(X)=0:T(2)=T(2)+2:GOSUB950:PRINT"":IFT(2)+T(1)=45THEN200
159 FORJ=0TO1500:NEXT:GOTO150
160 Y=INT(RND(0)*44+1):Y$=D$(M(Y)):X$=Y$:IFU(Y)=0ORY=ZTHEN160
162 IFM(Y)=44THENU(Y)=0:T(2)=T(2)+1:X=Y:GOSUB950:FORJ=0TO1000:NEXT:GOTO160
165 X=Y:X$=Y$:GOSUB950:IFY$=Z$THENT(2)=T(2)+2:X=Y:GOSUB950:U(Z)=0:U(Y)=0:X=-1
166 IFT(1)+T(2)=45THEN200
167 IFX=-1THENFORJ=0TO1500:NEXT:GOTO150
170 FORJ=0TO4000:NEXT:C=C+1:IFC>STHENC=1
175 R$(C)=Z$:R(C)=Z:C=C+1:IFC>STHENC=1
176 R$(C)=Y$:R(C)=Y
180 X$="   [157][157][157]   [157][157][157]   [145][157][157][157]"+STR$(Z+1):X=Z:GOSUB950
181 X$="   [157][157][157]   [157][157][157]   [145][157][157][157]"+STR$(Y+1):X=Y:GOSUB950:GOTO49
200 PRINT"PLAY AGAIN ? (Y/N)        ";:GETX$:IFX$<>"Y"ANDX$<>"N"THEN200
201 IFX$="Y"THENT(1)=0:T(2)=0:FORJ=1TO35:R$(J)="":NEXT:GOTO34
202 GOTO63000
500 FORI=0TO4:PRINT"                                     ";
505 PRINT"                  ";
510 PRINT"            ";
511 NEXT
515 PRINT"                                     "
519 PRINT"";:FORJ=0TO4
520 PRINT"                                          ";
525 PRINT"                                       ";:NEXT
530 PRINT"12345678910111213";
535 PRINT"1415161718192021222324252627";
540 PRINT"2829303132333435363738394041";
545 PRINT"42434445"
900 PRINT"    PLAYER 1";T(1)"[145]":PRINTSPC(25);
901 PRINT"PLAYER 2";T(2);:RETURN
950 PRINT"[157]";:IFX>8THENFORJ=1TOINT(X/9):PRINT"";:NEXT
955 IFX<9THEN960
956 X=X-9:GOTO955
960 PRINTSPC((X+1)*4);X$
965 PRINT"";SPC(13);T(1);"[145]":PRINTSPC(34);T(2);
970 RETURN
63000 REM   CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END